home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Construc / Unit1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-06-05  |  1.6 KB  |  60 lines
  1. unit Unit1;
  2. interface
  3. uses
  4.   ComObj, ActiveX, AspTlb, TDM58_TLB, StdVcl, Unit2;
  5.  
  6. type
  7.   TDrBob42 = class(TASPObject, IDrBob42)
  8.   protected
  9.     procedure OnEndPage; safecall;
  10.     procedure OnStartPage(const AScriptingContext: IUnknown); safecall;
  11.     procedure ASProduce; safecall;
  12.   private
  13.     DataMod: TDataModule2;
  14.   end;
  15.  
  16. implementation
  17. uses
  18.   ComServ, SysUtils;
  19.  
  20. procedure TDrBob42.OnEndPage;
  21. { DataMod is a private memberfield of type TDataModule2 }
  22. begin
  23.   FreeAndNil(DataMod);
  24.   inherited OnEndPage;
  25. end;
  26.  
  27. procedure TDrBob42.OnStartPage(const AScriptingContext: IUnknown);
  28. begin
  29.   inherited OnStartPage(AScriptingContext);
  30.   DataMod := TDataModule2.Create(nil);
  31. end;
  32.  
  33. procedure TDrBob42.ASProduce;
  34. var
  35.   Name: String;
  36. begin
  37.   Name := Request.Form['username'];
  38.   Response.Write('<H1>Hello, '+Name+'!</H1>');
  39.   Response.Write('<HR>');
  40.   Response.Write(DataMod.MidasPageProducer1.Content);
  41. {
  42.   Response.Write(DataMod.DataSetTableProducer1.Content);
  43.   Response.Write('<BR>The value of "UserName" = '+Name);
  44.   Response.Write('<BR>The value of "username" = '+Name);
  45.   Pass := Request.Form['password'];
  46.   Response.Write('<BR>The value of "password" = '+Pass);
  47.   Response.Write('<P>');
  48.   Response.Write(DataMod.PageProducer1.Content);
  49.   Response.Write('<P>The time is: '+TimeToStr(Now));
  50.   Response.Write('<P>');
  51.   DataMod.DMQueryTableProducer1.Request := Request;
  52.   Response.Write(DataMod.DMQueryTableProducer1.Content);
  53. }
  54. end;
  55.  
  56. initialization
  57.   TAutoObjectFactory.Create(ComServer, TDrBob42, Class_DrBob42,
  58.     ciMultiInstance, tmApartment);
  59. end.
  60.